home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue08 / scsi / !Run2 < prev    next >
Encoding:
Text File  |  1990-05-02  |  1.4 KB  |  33 lines
  1. | >!Hearsay.!Run2
  2. RMEnsure MemAlloc 0.00 RMLoad <Obey$Dir>.Resources.MemAlloc
  3. SpriteSize 64K
  4. RMAFree 32K
  5.  
  6. Set Hearsay$Temp "%0"
  7.  
  8. Set Count 1
  9. IF (Hearsay$Temp RIGHT Count) LEFT 1 <> "." THEN Seteval Count Count+1
  10. IF (Hearsay$Temp RIGHT Count) LEFT 1 <> "." THEN Seteval Count Count+1
  11. IF (Hearsay$Temp RIGHT Count) LEFT 1 <> "." THEN Seteval Count Count+1
  12. IF (Hearsay$Temp RIGHT Count) LEFT 1 <> "." THEN Seteval Count Count+1
  13. IF (Hearsay$Temp RIGHT Count) LEFT 1 <> "." THEN Seteval Count Count+1
  14. IF (Hearsay$Temp RIGHT Count) LEFT 1 <> "." THEN Seteval Count Count+1
  15. IF (Hearsay$Temp RIGHT Count) LEFT 1 <> "." THEN Seteval Count Count+1
  16. IF (Hearsay$Temp RIGHT Count) LEFT 1 <> "." THEN Seteval Count Count+1
  17. IF (Hearsay$Temp RIGHT Count) LEFT 1 <> "." THEN Seteval Count Count+1
  18. IF (Hearsay$Temp RIGHT Count) LEFT 1 <> "." THEN Seteval Count Count+1
  19. IF Hearsay$Temp<>"" THEN Seteval Hearsay$Call (Hearsay$Temp RIGHT (Count-1)) ELSE Set Hearsay$Call ""
  20. WimpSlot 0 0
  21. Echo<22><12>
  22. Echo<23><1><0><0><0><0><0><0><0><0>
  23. Run "<Hearsay$Path>.Resources.!Palette"
  24. WimpSlot -min 500k -max 500K
  25. Set SCSIFS$Path SCSI
  26. SetEval Hearsay$Run "Run <Hearsay$Path>.!RunImage "+Hearsay$Call
  27. Echo <Hearsay$Run> { > <Hearsay$Path>.temp }
  28. SetType <Hearsay$Path>.temp FEB
  29. Obey <Hearsay$Path>.temp
  30. | You might have to change the hard disc drive-name in the following line!
  31. Filer_OpenDir SCSI::HardDisc4.$
  32. Fx 138 0 13
  33.